
 1000  *---------------------------------
 1010  *      SAMPLE APPLESOFT FILTER PROGRAM
 1020  *---------------------------------
 1030         .OR $BA
 1040         JMP FILTER
 1050  *---------------------------------
 1060         .OR $300
 1070  FILTER CMP #'#      CHECK FOR "#" CHARACTER
 1080         BNE .1       NO, PASS UNMOLESTED
 1090         JSR WHATEVER.YOU.WANT
 1100         JMP $B1
 1110  .1     CMP #$3A     CHECK FOR COLON
 1120         BCS .2       YES, RETURN JUST CHRGET WOULD
 1130         JMP $BE      NO, RECONNECT WITH CHRGET
 1140  .2     RTS
 1150  *---------------------------------
 1160  WHATEVER.YOU.WANT
 1170         JSR $FBE2    RING BELL
 1180         RTS

